home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / memory / emsaw41s.zip / TEST1F.FOR < prev    next >
Text File  |  1994-06-26  |  769b  |  27 lines
  1. C     Example of the program in FORTRAN:
  2. C     Compiler settings: usually none.
  3. C     Use segemsp.obj for linking.
  4. C     (See note 5)
  5. C
  6.       INTEGER*4 TOTSIZ, AVSIZ, A, INDEX, BITNU, LENGTH, VAL1, VAL2 
  7.       INTEGER*4 GETF, GETINT
  8.       CALL EMINIT
  9.       CALL SIZAR (TOTSIZ, AVSIZ)
  10.       WRITE(*,1000)TOTSIZ, AVSIZ
  11.       CALL NEWAR (A, AVSIZ)
  12.       INDEX=AVSIZ
  13.       VAL1=99999999
  14.       CALL SETINT (A, INDEX, VAL1)
  15.       VAL2=GETINT (A, INDEX)
  16.       WRITE(*,1000) VAL1, VAL2
  17.       INDEX=AVSIZ-2
  18.       BITNU=7
  19.       LENGTH=30
  20.       CALL SETF  (A, INDEX, BITNU, LENGTH, VAL1)
  21.       VAL2=GETF(A, INDEX, BITNU, LENGTH)
  22.       WRITE(*,1000) VAL1, VAL2
  23.       CALL  FREEAR (A)
  24.       WRITE(*,1000) TOTSIZ, AVSIZ
  25.  1000 FORMAT(1X,2(I8,6X))
  26.       END
  27.